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' RMSMAC.REQ = i iae FILE FOR BLISS=-32 INTERFACE TO RMS-32 
Version 'V04- 


PETTITT LILI LILI LILI LLL LLL LLL LiL Lili iiiitititiiiiitiiiii 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


't THIS SOFTWARE is fruit net A ‘tr AND MAY BE USED AND cost? 


iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
tt TRANSFERRED. 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
& onepckat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!t SOFTWARE ON EGUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


aepneeneeneeneneenenanennennnnane 


See RARER REAR A AAA A AAA 

1 

i 

i 

lee 

' 

i FACILITY: RMS-32 Interface from BLISS 

i FUNCTIONAL DESCRIPTION: 

i This file is to be used as a REQUIRE FILE in any BLISS-32 progran 

using RMS-32. Its MACROs permit the BLISS-32 program to allocate 

and statically ante talize the control blocks of interest A RMS-32, 

eynentcak ty initialize these control blocks, access the fields of 
ese control blocks, and invoke the functions efupegrted by RMS-32. 

Note that any changes made to 33nxc structure definitions must also 


be reflected in the file RMS3 -MAR which contains the same 
information for MACRO-32 programs. 


! 
! 
' 
! 
t 
i 
! 
! 
t 
1 
! 
! 
! 
: ENVIRONMENT: Link (automatically) with STARLET.OLB 
1 
1 
1 
' 
V 
! 
1 
! 
t 
1 
‘ 


i AUTHOR: Peter A. Belmont, CREATION DATE: 27-May-77 
i MODIFIED BY: 
v03-017 DASO00S David Solomon 06-Jun-1984 
Remove extra comma in $XABTRM_INIT. 
v03-016 pgB0037 Donald G. Blair 7-Mar-1984 
Fix XABSB_MTACC, which has never been initializable 


hoon the SXABPRO macro. 
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v03-015 rear Bonald G. Blair 23-Mar-1984 
elds to RABSO AC on xab: XABS$B_PROT PT. 
HAS vACLBUF ACLSIZ, XABSW_ATLLEN? 
ABSL_-ACLCTX, XABSL-ACLSTS 
v03-014 pascocs on 13-Feb-1984 
Add support for FABSV _LNM_MODE, 
E MODE. Pond XAB$B_PROT_MODE. 


David Sol 

ix typos in SXABJNL INIT. 
FABSV. HAN_MODE, PABSV VFIL 

v03-013 DAS9003 David Solom 

Fix missing comma in NOP changes in v03- 


oS ~Aug-1983 | 
v03-012 BAST Se Ron Schaefer 12-Jul-1983 
| 


dd NOP parameter and delete S$XABACE macros. 


v03-011 LJA0066 urie J. Anderson 01-Mar-1983 
Add initialization. of gt A (new field in XABCXR) 
Length of the CXRBUF in byt 
Fix XABCXR_INIT which is tiscine a). 


V03-010 JwHO190 Jeffrey W. Horn 21-Feb-1983 
Add $XABACE macros for the Access Control Entry XAB. 
v03-009 DAS0002 David Solomon 09-Feb-1983 
Add $XABTRM macros for the terminal XAB. 
v03-008 JWHO179 Jeffrey W. Horn G2-Feb-1983 
Fix bug in JWHO165. 
V03-007 JWHO165 Jeffrey W. Horn 05-Jan-1983 
tn Journal XAB macros to relect changes to XAB layout. 
v03-006 LJA0047 Laurie J. Anderson 28-Dec-1982 
Add samentadielt ie taskion for SEQ/REL NRP context 
v03-005 LJA0036 Laurie J. Anderson 27-0c t-1982 


Allow for initialization of the wey yeriee pointers in XABCXR 
Fix up initialization of context XAB's due to rearrangement. 


v03-004 epee rt CW Hobbs 27-Aug-1982 
Standard form se calls ($CLOSE, etc) are now 
defined in <VMSLIB.SRC>STARLET.SDL. The declarations 
in this module have been commented away. 


vO3-003 JwH0001 Jeffrey W. Horn 07-Jul-1982 
Add XABJNL, jocvetind XAB. 

v03-002 LJA0010 e Anderso 66-Jul-1982 
Fix problem with’ Wrtlel tection of RABSL_XAB 

v03-001 LJA0009 Laurie Anderson 14-Jun-1982 


| 
Add RABSL_XAB, to support new context XAB (XABCXR) 

Add two néw XABs (of type context), one for FAB, other 
for RAB, XABCXF and XABCXR, respectively. | 
| 


15-Jan-1982 


v02-010 RASO061 Ron Schaefer 


RMSMAC REQ; 1 


Oe ee ted eh eee eed 0 tte Le eee eee ee eee 


v02-009 


v02-008 


v02-007 


v02-006 


v02-005 


v02-004 


v02-003 


v02-002 


v02-001 
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Add FABSW_GBC and fix the bad status-check macros. 


perooes Keith B Thompson 88-Jan-1982 
Remove COMP, change STRUCT to PROLOG and add mATACC 
boge  d C Sae =i 
Use the symbolic tae TrabSc -fone”’ to specify 
default value for the key xab™''struct’’ and” ‘compat’ fields. 
PSK0002 Paulina S Knibbe 26-Aug-1981 
Make more things symbolic 
PSK0001 Paulina S$ Knibbe 21-Aug-1981 
Add support for new long key XAB fields. 
RAS0069 Ron Schaefer 17-Jun-1981 


Correct the service macros (eg. $CLOSE) to have the 
correct linkage declaration and addressing mode. 


KRMO015 Karl Malik 18-May-1981 
Modify SNAM and SHAM. INIT to include the additional 
40 bytes of the extended NAM block. 


MCNO007 aria del C. Nasr 12-May-1981 
Use old symbol a new Length of ‘tech date ind time XAB. 
RASO0042 Ron Schaefer 11-Feb-1981 
Add the a ten Be + parameters to the following file 
process ioe ma 
$CLOS SCREATE, SDISPLAY, SERASE, SEXTEND, SMODIFY, SOPEN 
MCNO004 aria del C. N 17-Dec-1980 


Change detinition® os SXABDAT to "include backup date and 


REVISION HISTORY: 


Peter A. Belmont 22-Jun-77 

added $CLOSE etc., to $Rus. CLOSE, etc. 
pov ised Ras. OXSTATUS S macro | 

chan 


qed ~" back to ‘'$C_ 
fixed ASYN ." $RAB to recognize YES (ASYN=YES) 


Peter A. Belmont 6-July-77 

- added ne XXX_ CENIT and XK NI macros 

- which imptenehit dynamic initialization of 
- control blocks. 


Christopher Cooper, 31-Oct-78 
= + net has happened since the last update of this 


- Adda a KABKEY and XABSUM initialization/declaration 
macros. 


Alan Lehotsky 13-Dec-78 
- No support Ts $SFAB and $F AB INIT macros for DNM or 
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FNM keywords. Cannot cong Lovely suggort the MACRO-32 
semantics, as we comet force the file=-name string 
into the $RMSNAM psect. 


Unknown RMS V1.5 person Spring 1979 
- suppert added for the — segments: KEY XAB's and additional 
y fields in RAB's and FAR's. 
- whe DNM and FNM keywords by allowing the names to go into 
the SPLITS psect. 


Ron Schaefer 22-Oct-79 

- Support for the POS and si2 ae fields within the 
SXABKEY and $XABKEY_INIT m S. 
Either POS or POSn forms ore accented. 


Ron Schaefer 30-Oct-79 

- Support for AID, BKZ and bEa fields * SRARAA.. and 
SXABALL_INIT. yal O remove spurious s ypgort t for 
NOA, NOR and P ields in $XABSUM ond XABSUM_ INIT, 
since these tetds are readonly. 


OFFSET = SRMS_OFFSET(FABSL_ABC); 


DOCUMENTATION: 
RMSMPP ..RNO Mini Project Plan, BLISS RMS 1387s Project 
RMSSPC.RNO Functional deoc i tlcations. a RMS ai 
User Documentation, BLISS R supper 
Maintenance Documentation, aise RM 35 Support 
lee 
' 
; SRMS_OFFSET 
! User macro. Takes name of an RMS-32 field as 
! parameter and evaluates to the BYTE offset 
of that field from the base of the control block. 
‘ Use: 
i 
! 
' 


SRMS_OFFSET_1(XREMOVE(NAME)) %, 


=m 
~~ 
“uw 


' 
i STATIC INITIALIZATION MACRO UTILITIES 
: Internal macros. Used by the initialization 
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} macros below to asalgn initial values to 
' the fields of che RMS-32 control blocks. 


i $RMS_BITFLD (and its support macros ...) 


! 
! 
{ 
! 
: Internal macro. Allows the initialization 

of a field with the OR of one or more (named) bits. 
! SRMS_BITFLD(ALLOC ph ve ae butlds an 

' initTal value of size ALLOC ( BYTE, WORD, 

: or LONG ), setting the bits uneee names 

: are of the form PREFIX//VAL where 

! VAL is either VALUE or one of the elements 

of VALUE when VALUE is a tuple (i.e., <A,B,C>). 

' 


$RMS_BITS(A,B)CI= 
ZNAME(A,B)  $RMS_OR(XREMAINING)  $RMS_BITS(A,Z%REMAINING) %, 


SRMS_ORCJ= 
OR %, 


SRMS_BITFLD(ALLOC ,PREF IX, VALUE) = 
ZIF XN NULL (VALUE) 


ZTHEN ALLOC(0) 
sete ALLOC(SRMS BITS (PREFIX, SREMOVE (VALUE) ) ) 


SRMS_BITFLD_INI 


Internal macro. Permits the dynamic initialization 
of a field with the OR of one or more named bits. 


ete. _BITFLD_INI(BLK,NAME, A oh ald gt stores 
into BLKCNARME) the value obtained x0 ay, 
ek oo the bits whose names are PREFIX//VAL 
where VAL is either VALUE or is one of the 
elements of VALUE when VALUE is a tuple. 


SRMS_BITFLD_INI (BLK NAME , PREF IX, VALUE) = 
RIF XNUCLCVALUES XTHEN ZEXIFMACRO ZF I 
BLOCKCBLK, ZREMOVE (NAME) :0,BYTE 
SRMS BITSCPREF IX. TREMDVE (VALUED) .. 


Sea ASE ape ag RETEST Wes cee ae eT 
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$RMS_CODFLD 


Internal macro. Allows the initialization 
of a field with a named value. 


SRMS_CODFLD(ALLOC ,PREF IX, VALUE) 

allocates a value of size ALLOC (BYTE, WORD, or LONG) 
and initializes it with the value whose name 

is PREFIX//VALUE. 


SRMS_CODFLD(ALLOC ,PREF IX, VALUE) 
RLLOC (XNAME (PREFIX, REMOVE (VALUE) )) %, 


+ 
oa 


SRMS_CODFLD_INI 


Internal macro. Allows the dynamic initialization 
of a field with a named value. 


ERAS sCODFLD, INI (BLK ,NAME ,PREF 1X, VALUE) 
assigns to BLKCIN CNAME J the value whose name is 
PREF IX//VALUE 


SRMS_CODFLD_INI (BLK,NAME ,P 
X1F NULL (VALUE) XTHEN Sexi 
BLOCKCBLK , ZREMOVE (NAME) 0 BYTE 
CENAME (PREFIX. ZREMOVE (VALU 


te 
SRMS_VALFLD 


' 

i 

i 

i 

i Internal macro. Permits the initialization 
of a field with a general value. 
i 

i 

i 

i 

i 


on _VALFLD(ALLOC,VALUE) allocates 
éld of size ALLOC (BYTE, WORD, or LONG) 
ond initializes it with the (general) value, VALUE. 


$RMS_VALFLD(ALLOC, VALUE) = 
ALLOC (VALUE) &, 


t 

t 
i 
pe te 
te 

pats 

o< 
> 
muszer 
~~ Cc 
~~ item 
~ 
" 
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i++ 


SRMS_VALFLD_INI 


Internal macro. Permits the dynamic initialization 
of a field with a general value. 


SRMS_VALFLD_INI(BLK,NAME,VALUE) stores the value VALUE 
the Field BCKCNAME). 


SRMS_VALFLD_INI (BLK,NAME, VALUE) = 

MIF ZNULL(VALUE) XTHEN ZEXITMACRO XFI 

MIF XIDENTICAL(VALUE,0O) XTHEN ZEXITMACRO %F1 
BLOCKCBLK, SREMOVE (NAME) ;:0,BYTE) = VALUE %, 


t SRMS _8FLD 


Internal macro. Permits the initialization of 8 contiguous fields 
named by the technique XXX$A_FLDn, where n ranges from 0 to 7. 


SRMS_8FLDC(ALLOC, VALUEO, VALUE1,VALUE2, VALUE3, VALUES VALUES VALUES . VALUE7) 
allocates a cont inguous fields of size ALLOC (BYTE, 6 or LONG) 

and initializes them with the values VALUEO thru VALUE? *y Sates of 0 
is supplied for any values that are null. 


SANS GFLDCALLOC .VALO.VALT.VAL2.VALS.VAL4.VALS.VAL6.VAL7)= 
RIF ZNULL(VALO) ZTHEN (0) ZELSE (VALO) 2FI1, 
RIF ZNULL(VAL1) ZTHEN (0) ZELSE (VAL1) 2FI, 
RIF ZNULLCVAL2) ZTHEN (0) ZELSE (VAL2) ZFI, 
RIF ZNULL(VALS) ZTHEN (8) ZELSE (VAL5) ZFI, 
RIF ZNULL(VAL4) ZTHEN (0) ZELSE (VAL4) 2FI, 
RIF ZNULL(VALS) RTHEN (0) ZELSE (VALS) ZF I, 
RIF ZNULL(VAL6) ZTHEN (0) ZELSE (VAL6) 2FI, 
” RIF ZNULL(VAL7) ZTHEN (0) ZELSE (VAL7) 2F 1 


$RMS_8FLD_INI 


Internal macro. Permits the dynaeic initialization of 8 contiguous 
fields named by the technique XABSf_FLDn, where n ranges from 0 to 7. 


SRMS_8FLD-INI (BLK ,NAME) CVALUE_LISTJ 
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} initializes up to 8 fields with the values in VALUE_LIST. 
= 


SRMS_BFLD INI (BLK NAME) CVALJ= 
z1F Fe XCOUNT GEG 8 


N 
BERR ORC Excess POS or SIZ values.') 
ZEXITMACRO 


2FI 
SRMS_VALFLD_INI(BLK, (2NAME(NAME,2COUNT)), VAL) %, 


i $RMS_VALPRO (and support macros ...) 


' 

' 

' 

: 

: Internal macro. Permits the initialization 
of a protect lon=uorg following the RSX-11M 

' 

' 


and STARLET conventions. 


SRMS_VALPR2(RWEDCHAR) CJ= 
AND NOT 


ZIF ZIDENTICAL(RWEDCHAR,'R') XTHEN XABSM_NOREAD 
ZELSE SIF XIDENTICAL(RWEDCHAR,'W') XTHEN XABSM_NOWRITE 
MELSE RIF ZIDENTICAL(RWEDCHAR,'E') ZTHEN XABSM_N 
ZELSE ZIF ZIDENTICAL(RWEDCHAR,'D') XTHEN XABSM_NODE 
ZELSE O ZERROR("IL legal value ‘'*, RWEDCHAR, ‘'’ of parameter PRO’) 
MFI ZF XFI XI 
SRMS_VALPR2(ZREMAINING) %, 
SRMS VALPR1 (RWEDG 


GROUP) 
78'1111° S$RMS " VALPR2(XEXPLODE (RWEDGROUP) ) a 
SRMS_VALPRO(SYSTEM, OWNER, GROUP ,WORLD) = 
ZIF XLENGTH GTR 4 
WORD (0) 
geRnGns "tLoget value of parameter PRO') 


(S$RMS_VALPR1(SYSTEM)) OR (S$RMS_VALPR1(OWNER))*4 OR 
($RMS_VALPR1(GROUP))*8 OR ($RMS_VALPR1 (WORLD) )*12) 


' 
i 
SRMS_VALPRO_INI 

Internal macro. Permits the dynamic initialization 
i: 

ie 


of a protection word following the RSX-11M and STARLET 
convention. 
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SRMS ya one crn, gth’S at EM,OWNER,GROUP,WORLD) = 
TIF LER TH GTR 5 XTHEN 
ite eas Sete value of parameter PRO') 
ERT TRACRO ZF I 
ZIF ZLENGTH EQL 1 XZTHEN XEXITMACRO ZFI 
BLOCK(BLK,XAB$W_PRO;0,BYTE) = 
($RMS “VALPRT (SYSTEM) g (SRMS VALPR1 (OWNER) )*4 OR 
{SAAS VALPR1(GROUP))*8 OR ($RAS_VALPR1 (WORLD) )*12) 


SRMS_VALUIC 


Internal macro. Permits the initialization 
of the two-word item, MEMBER/GROUP 


SRMS ae eS ei oy teeee 
LIF H NEQ 
XTHENC® 
REP 2 OF WORD(0) 
ZERROR('ILlegal value of parameter UIC") 


One ENSSS ner 


ae 
SRMS_VALUIC_INI 


' 
i 
i 
i 
i Internal macro. Permits the Geevats initialization 
i of the two-word item, MEMBER/GROUP 

le 


+ 


SRMS_VALUIC 151 CLs GROUP. MEMBER) = 
ZIF ZLENG 
ZTHEN sei teins Illegal value of parameter UIC") 


LIF TIDENTICAL (GROUP, 0) AND XIDENTICAL (MEMBER ,0) 
ZTHEN ZEXITMA FI 
BLOCK KCBLK XABSI UIC;0,BYTE) 

(MEMBER) OR (GROUP)*16) % 


'ee 
‘ 

: SRMS_VALRF I | 
: Internal macro. Permits tialization 

: of the three-word RFI fie 
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: FILENO, SEQNO, RVN 


ETF HLENGTH NEG SEQNO,RVN) = 
THEN 


REP 3 OF WORD(0) 
RERRORY It tegat value of parameter RFI') 


BORO KP SLES SEED RVN) 


+ 
* 


SRMS_VALRFI_INI 


ization 


Internal macro. Permits the dynami l 
i 1 QNO, and RVN. 


c initia 
of the three-word RFI field w FILENO, SE 


SRMS_VALRFI_INI(BLK,FILENO,SEQNO,RVN) = 
ZIF XLENGTH NEQ 4 
vag ees {i tegal value of parameter RFI‘) 
<IF Hearst 0) - 
<0) STHEN, ZEXITMACRO XFI 


RF10;6,BYTEJ= 
2:;0,BYTEJ= SEQNO; 
4:0.BYTEJ= 


14 
: Page 10 
' 
nam 
th F 
0) AN 
FILENO; 
RVN 
| 
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$FAB_DECL 


Used to declare a FAB control block where 
initialization is not required. 


$FAB = 
BLOCRLFA BSC -BLN,BYTE] = -&; 


Used to allocate and statically initialize 
a FAB control block. 


KE YWORDMACRO 
SF AB( 


* = = fie 
© 
. 


‘ o<oo°oo 
>. 
DD 
. 


a2aunnuun 
ze 

munnunun 
1 oooovo 


a + 
o 
L=J 
m 
u 
Oo 


ODE=0, 


Dooo<«cvnvde-Zzo 


OWBouvno rPvwn-wWw 
=< 


aa =r emer 4 4O TT 


Sane “VALFLD(LONG, 
ZIF ZNULL(FNM) ZTHEN 
SRMS_VALFLD(LONG, FNA), ! FNA 


—_ | 
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$FAB_INIT( 


XELSE 

we SRMS_VALFLD(LONG, UPLIT BYTE(FNM)), ' FNA | 

X%IF XNULL(DNM) XTHEN 

a SRMS_VALFLD(LONG, DNA), ' DNA | 

me SRMS_VALFLD(LONG, UPLIT BYTE(DNM)), ! DNA 

SIF XNULL(FNM) XTHEN 

arias SRMS_VALFLD(BYTE, FNS), ' FNS 

“= SRMS_VALFLD(BYTE, %CHARCOUNT(FNM)), ' FNS 

X%IF XNULL(DNM) XTHEN 

ie SRMS_VALFLD(BYTE, DNS), ' DNS 

al SRMS_VALFLD(BYTE, X%CHARCOUNT(DNM)), ! DNS 
SRMS_VALFLD (WORD, MRS), 1 MRS 
SRMS_VALFLD(LONG, MRN), i MRN 
SRMS_VALFLD(WORD, BLS), ' BLS 
SRMS_VALFLD(BYTE, BKS), | BKS 
SRMS_VALFLD(BYTE, FSZ), i FS2 
SRMS_VALFLD(LONG, 0), | DEV 
SRMS_VALFLD(LONG, 0), i SDC 
SRMS~VALFLD (WORD, GBC), i GBC 

YT | ACMODES 
( LNM_MODE * $BITPOSITICN(FABSV_LNM MODE) ) 
+ ( CHAR_MODE * $BITPOSITION(FABSV_CHAN_MODE) ) 
+ ( FILE-MODE * SBITPOSITION(FABSV_FILE-MODE) ) ), 
SRMS_VALFLD(BYTE, 0)> 'RCF 
es $RMS_VALFLD (LONG, 0) | SPARE 

lee 

i 

| $FAB_INIT 

i Used to dynamically initialize 

: a@ FAB control block. 

lee 

KE YWORDMACRO 


a 
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ae LNM_MODE, CHAN_MODE, FILE_MODE 


( BIND SRMS_PTR = FAB; 
CHSFILL(O;FABSC_BLN, CHSPTR(SRMS_PTR)); 


SRMS_VALFLD_INI ($RMS_PTR, (FABSB_BID), FABSC_BID); ' BID 
$RMS-VALFLD~INI ($RMS_PTR, (FABSB_BLN) . FABSC-BLN) ; i BLN 
SRMS~VALFLD-INI ($RMS_PTR, (FABSW_IFI), 0); i IF] 
SRMS_BITFLD-INI(S$RMS_PTR.(FABSL-FOP). FABSM_, FOP); i FOP 
$SRMS-VALFLD_INI ($RMS_PTR, (FABSL_STS). 0); i §Ts 
$RMS~VALFLD~INI ($RMS_PTR, (FABSL_-STV), 0): i §Tv 
SRMS_VALFLD_INI (SRMS_PTR, (FABSL_ALQ) , ALQ); i ALQ 
SRMS~VALFLD~INI (SRMS_PTR, (FABSW-DEQ) , DEQ): i DEQ 
SRMS-BITFLD-INI($RMS_PTR,(FABSB_FAC),  FABSM_, FAC): i FAC 
SRMS-BITFLD-INI($RMS_PTR, (FABSB-SHR), FABSM-. SHR) : i SHR 
SRMS~VALFLD~INI ($RMS_PTR. (FABSL_CTX), CTX): i CTX 
SRMS-VALFLD~INI ($RMS_PTR, (FABSB_RTV), RTV): i RTV 
SRMS~CODFLD-INI(S$RMS-PTR, (FABSB_ORG), FABSC_, ORG): i ORG 

MS"BITFLD-INI($SRMS_PTR, (FABSB_RAT), FABSM~, RAT): i RAT 
SRMS~CODFLD-INI(SRMS_PTR, (FABSB_RFM), FABSC-, RFM): i REM 
$RMS~VALFLD~INI ($RMS_PTR, (FABSL_JNL) . JNL): i NL 
SRMS~VALFLD~INI ($RMS_PTR, (FABSL_XAB), XAB) : i XAB 
$RMS~VALFLD_INI ($RMS_PTR, (FABSL_NAM) , NAM) : i NAM 
SRMS~VALFLD~INI ($RMS~PTR, (FABSL~FNA) 

TIF ~XNULL (FNAD XTHEN FNA %ELSE UPLIT BYTE(FNM) %FI); ' ENA 
SRMS_VALFLD_INI(SRMS_PTR, (FABSL_DNA) 

ZIF-XZNULL(DNA) ZTHEN DNA XELSE UPLIT BYTE(DNM) X%FI); DNA 
SRMS_VALFLD_IN NICERMS beh (FABS$B_FNS) 

ZIF-XNULL(FNA) XTHEN ENS reece MCHARCOUNT(FNM) %FI); ! ENS 
$RMS_VALFLD_ INTC RM S pT (FABS$B_DNS) 

LIP XNULL(DNA) XTHEN DNS XELSE XCHARCOUNT(DNM) %FI); ' DNS 
$RMS_VALFLD “Titans ork. (FABSW_MRS) , MRSS; i MRS 
$RMS~VALFLD—INI ($RMS_PTR, (FABSL_MRN) , MRN) : i MRN 
$RMS_VALFLD_INI ($RMS_PTR, (FABSW_BLS) , BLS): i BLS 
$RMS~VALFLD~INI ($RMS_PTR, (FABSB_BKS) . BKS): i BKS 
SRMS~VALFLD~INI ($RMS_PTR, (FABSB_FSZ). FSZ): i FS2 
SRMS~VALFLD~INI ($RMS_PTR, (FABSL_DEV) . 0); i DEV 
SRMS~VALFLD~INI ($RMS~PTR, (FABSL SDC). 0): i Spc 
$RMS~VALFLD_INI ($RMS_PTR, (FABSW_GBC), GBC); i GBC 
SRMS~VALFLD~INI ($RMS_PTR, (FABSB_ACMODES) 0); i ACMODES 
SRMS~VALFLD~ INI ($RMS_PTR. (FABSV-LNM_MODES LNM_MODE); i LNM MODE 
SRMS~VALFLD~INI ($RMS_PTR, (FABSV~CHAN_MODES, CHAR_MODES; i CHAR_MODE 
$RMS~VALFLD~INI ($RMS_PTR, (FABSV—F ILE MODE). FILE-MODE); i FILEMODE 
$RMS~VALFLD~ INI ($RMS_PTR, (FABSB_RCF) 0); 7 i RCF 
$RMS~VALFLD~INI ($RMS_PTR, (FABSL SPARE) , 0): i SPARE 

| 
| 
| 
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' 
i 
} SNAM_DECL 
Permits the declaration of the NAM control block 
: where initialization is not required. 
lee 
MACRO 
SNAM_DECL = BLOCKCNAMSC_BLN,BYTE) %; 
lee 
' 
' $NAM 
Macro to allocate and initialize the NAM control block. 
= 
KEYWORDMACRO 
SNAM ( 
RSA=0, RSS=0, ESA=0, ESS=0, 
RLF=0, NOP) = 
SNAM_DECL 
INITIAL ( 
SRMS_VALFLD(BYTE, NAM$C_BID), ' BID 
SRMS_VALFLD(BYTE, NAMSC_BLN), ' BLN 
SRMS_VALFLD(BYTE, RSS), ' RSS 
SRMS_VALFLD(BYTE, 0), ! RSL 
$RMS_VALFLD(LONG, RSA), | RSA 
SRMS_BITFLD(BYTE, NAMSM_, NOP), ' NOP 
SRMS_VALFLD(BYTE, 0) | RFS 
SRMS~VALFLD (BYTE. ESS), i ESS 
SRMS_ “VALFLD(BYTE, iF . €SL 
SRMS_ sat tee ESA), ' ESA 
SRMS_ — Bo RLF), ' RLF 
REP RAS V V AC ELD (WORD, 0), ' DvI 
~ 34 F SRMS S"VALFLD (WORD, 0), ' FID 
OF SRMS~VALFLD(WORD, 0), ' DID 
SRNS- VALFL LD(LONG, 83. ' weC 
MS VALFLD(LONG, Vie ' FNB 
SRMS_VALFLD(BYTE, 8° ' NODE 
SRMS_VALFLD(BYTE, Be ' DEV 
$SRMS_VALFLD(BYTE, ve ' DIR 
“VALFLD(BYTE, Pe ' NAME/QUOTED 
SRMS_VALFLD(BYTE, Ms ' TYPE 
SAAS, VALFLD(BYTE, ), ' VER 
P 2 OF SRMS_VALFLD(BYTE, ), ' SPARE | 
RMS_VALFLD(LONG, ), ' DEV | 
SRMS_VALFLD(LONG, ve ' DIR 
SRMS~ _VALFLD(LONG, ), ' NAME/QUOTED 
| 
| 
| 
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SRMS -VALELD (LONG, +. ! TYPE 
SRMS-VALFLD(LONG, is i VER 
‘s REP 2 OF SRMS_VALFLD(LONG, ) ! SPARE 
'e¢ 
' 
| $NAM_INIT 
: Used to d ony ph initialize 
a NAM control b 
lee 
KEYWORDMACRO 
SNAM_INIT( 
NAM, 
RSA, RSS ESA, ESS, 
RLF, NOPS = 
( BIND SRMS_PTR = 
CHSF ILL (OTNAMSC BUN: CHSPTR(SRMS_PTR)); 
$RMS_VALFLD_INI (SRMS_PTR, (NAMSB_BID), NAMSC_BID); 
SRMS~VALFLD~INI ($RMS PTR, (NAMSB_BLN) , NAMSC~BLN) ; 
$RMS~VALFLD—INI ($RMS_PTR, (NAMSB_RSS) . RSS);~ 
SRMS~VALFLD—INI ($RMS_PTR, (NAMSB_RSL). 0); 
$RMS~ VALFLD~INI ($RMS_PTR, (NAMSL_RSA) , RSA); 
SRMS"BITFLD-INI($RMS_PTR, (NAMSB_NOP), NAMSM_, NOP) ; 
SRMS~VALFLD~INI (SRMS_PTR, (NAMSB_RFS) . 0); 
SRMS_VALFLD—iNI (SRMS_PTR, (NAMSB_ESS) , ESS); 
SRMS~VALFLD~ INI ($RMS_PTR, (NAMSB_ESL). 0); 
SRMS~VALFLD~INI ($RMS_PTR, (NAMSL_ESA) . ESA); 
$RMS~VALFLD~ INI ($SRMS_PTR, (NAMSL RLF) RLF); 
EP B OF $RAS_VALFLD~INI(SRMS_PTR, (NAMSW_DVI), 0); 
i REP 3 OF $RMS_VALFLD—INI ($RMS_PTR, (NAMSW_F ID), 0); 
i REP 3 OF S$RMS~VALFLD~INI ($RMS-PTR, (NAMSW_DID). 0); 
i SRMS_VALFLD_IRI(S$RMS~PTR, (NAMSL_WCC), ); 
i RMS—VALFLD~INI ($RMS_PTR, (NAMSL —FNB) 0); 
i SRMS~VALFLD~INI ($RMS_PTR, (NAMSB_NODES , ); 
i SRMS~VALFLD~ INI ($RMS_PTR, (NAMSB_DEV) , ); 
i $RMS~VALFLD~ INI ($RMS_°TR, (NAMSB_DIR) ); 
i $RMS~VALFLD~INI ($RMS_PTR. (NAMSB_NAME 5 , ): 
i SRMS~VALFLD~INI (SRMS_ PIR. (NAMSB=TYPE), ); 
i SRMS~VALFLD~ INI (SRMS_PTR, (NAMSB_VER) ); 
i EP 2 OF SRAS VALFLD= “INI tans PTR (NARSB_ SPARE), ); 
i $RMS_VALFLD_IRI($RMS~PTR, (NAMSL_NODE) , 0); 
i SRMS~VALFLD~INI ($RMS_PTR, DEV), 0); 
i SRMS~VALFLD~INI ($SRMS-PTR, “DIR) 0): 
i $RMS~VALFLD~INI ($RMS-PTR. (NAMSL NAMES , ); 
i $RMS~VALFLD~ INI ($RMS~PTR, (NAMSL-TYPE), 0); 


o2z "Eco "lwm 
MOZoe-<r- nw 
<TCWovo°c- "yp 


DIR 
NAME /QUOTED 


DIR 
NAME /QUOTED 
TYPE 
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' SRMS_VALFLD_INI(S$RMS_PTR 
i o> te 2 OF $RMS_VALFLD“INI 


) ); 
NAMSL_SPARE), 8}: 
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te 
SXABDAT_DECL 


Permits the declaration of the XABDAT control block 


' 
i 
i 
i 
i 
& where initialization is not required. 
i 


MACRO 
SXABDAT_DECL = BLOCKCXABSC_DATLEN, BYTE) %; 
lee 
1 
SXABDAT 
Macro to allocate and initialize the XABDAT control block. 
= 
KEYWORDMACRO 
SXABDAT ( 
NXT=0, RVN=0, EDTO=0, EDT4=0)= 
SXABDAT DECL 
TIALT 
SRMS_VALFLD(BYTE, XAB$C_DAT) ' COD 
SRMS~VALFLD(BYTE, XABSC “DATLEN), | BLN 
SRMS_VALFLD (WORD, i SPARE 
SRMS~VALFLD(LONG, mat). i NXT 
$RMS~VALFLD (WORD, RVN) . i RVN 
SRMS~VALFLD(WORD, 0), i SPARE 
EP 2 OF SRMS _VALFLD(LONG, 0); i RDT 
REP 2 OF $RMS-VALFLD(LONG, 0) i CDT 
SRMS_VALFLD(LONG, EDTO), i EDTO 
SRMS~VALFLD LONG, EDT4). i EDT4 
e REP 2 OF SRMS _VALFLD(LONG, 0) i BDT 
lee 
t 
SXABDAT_INIT 
! Macro to dynamically initialize the XABDAT control block. 
loo 
KE YWORDMACRO 


SXABDAT_INIT( 
KAB, 
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NXT=0, RVN=0, EDTO=0, EDT4=0)= 


ND SRMS_PTR = 


( BI XAB; 
CHSFILL( TKABSC_ DATLEN, CHSPTR(SRMS_PTR)); 


SRMS_VALFLD_INI (S$RMS_PTR, (XAB$B_COD), XABS$C_DAT); 
$RMS~VALFLD~INI ($RMS_PTR, (XAB$B_BLN) XABSC~DATLEN) ; 
SRMS-VALFLD—INI ($RMS_PTR, (XABSW_SPARE) , 0); 
SRMS~VALFLD-INI ($RMS_PTR, (XABSL_NXT), NXT); 
SRMS-VALFLD_INI ($RMS_PTR, (X RVN) RVN) ; 
SRMS VALFLD INI ($RMS—PTR, (XABSW~ SPARE) 0); 
REP P3 RMS_VALFLD-INI(S$RMS_PTR, (XABSL_RDT), ); 
OF $RMS VALFLD~INI (SRS PTR, (XABSL_CDT), 0): 
SRMS _VALFLD_IRI ( RNS“PTR. (KABSL EDTO), EDTO); 
“VALFLD-INI ($RMS_PTR, (XABSL-EDT4 EDT4): 
+ x P 2 OF $RAS_VALFLD~INI(S$RMS_ BTR. (XABSL _BDT), 0); 
i $XABRDT_DECL 
i Permits the declaration of the XABRDT control block 
where initialization is not required. 
SXABRDT_DECL = BLOCKCXABSC_RDTLEN,BYTE) %; 
i 
i $XABRDT 
! Macro to allucate and initialize the XABRDT control block. 
leew 
KE YWORDMACRO 
SXABRDT ( 
NXT=0, RVN=0 )= 
SXABROT DECL 
INITIALT 
SRMS_VALFLD(BYTE, XABSC_RDT) ' COD 
SRMS~ VALFLD(BYTE, XABSC-RDTLEN), | BLN 
SRMS~VALFLD (WORD, 0) i SPARE 
SRMS~VALFLD(LONG, NXT), i NXT 
SRMS =VALELD (WORD, RVN), i RVN 
SRMS~VALFLD (WORD, 0), i SPARE 
REP 2 OF $RNS _VALFLD(LONG, ) i RDT 
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res 

! 

SXABRDT_INIT 

i Macro to dynamically initialize the XABRDT control block. 


lea 
KEYWORDMACRO 
SXABRDT_INIT( 
XAB, 
NXT=0, RVN=0 )= 


( BIND SRMS_PTR = 
CHSF ILL (O7XABSC_ ROTLEN, CHSPTR(SRMS_PTR)); 


SRMS_VALFLD_INI (SRMS_PTR, (XAB$B_COD), XAB$C_RDT) ' COD 
SRMS~VALFLD—INI ($RMS_PTR, (XAB$B_BLN) XABSC “RDTLEN); i BLN 
SRMS~VALFLD—INI ($RMS_PTR, (XABSW_ SPARE) , 0); i SPARE 
SRMS_VALFLD_INI ($RMS_PTR, (XABSL_NXT), NXT); i NXT 
$RMS~VALFLD_INI ($RMS_PTR, (XABSW_RVN) RVN) : i RVN 
' SRMS~VALFLD~ INI ($RMS_PTR, (XABSW~ SPARE) 0); i SPARE 
' eae REP 2 OF $RAS_VALFLD_ INI (SRMS_ PTR, (RABEL. ROT), 0); ' RDT 


i $XABPRO_DECL 


' 
' 
] 
: 
: Permits the declaration of the XABPRO control block 
} where initialization is not required. 

] 


MACRO 
SXABPRO_DECL = BLOCKCXABSC_PROLEN,BYTE] % 
‘ee 
! 
: $XABPRO 
! Macro to allocate and initialize the XABPRO control block. 
ice 
KE YWORDMACRO 


$XABPRO( 
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NXT=0 U1C=<0,0>, PRO TACC=0 
PROT GPT. PROT_MODE=0,  ACLBUF=0, ACL Si 720, 
ACLCTX= 
SKABPRO DECL 
TIALT 
SRMS_VALFLD(BYTE, XABS$C_PRO) ' COD 
SRMSVALFLD(BYTE, XABSC-PROLEN), | BLN 
$RMS =VALELD (WORD, i SPARE 
SRMS ALELD (LONG NXT), i NXT 
Shee ~VALPROC REMOVE (PRO) ), i 
SRMS~VALFLD(BYTE, MTACC) i MTACC 
SRMS~BITFLD(BYTE XABSM_, PROT_OPT), i PROT_OPT 
SRMS~VALUIC(ZREMOVE(UIC)), iy 
RMS-VALFLD(BYTE, PROT_MODE), i PROT_MODE 
$RMSVALFLD(BYTE, 0), i SPARE 
SRMS~VALFLD (WORD, 0); i SPARE 
SRMS~VALFLD(LONG, 0); i SPARE 
SRMS~VALFLD (LONG, ACLBUF), i ACLBUF 
SRMS~VALFLD (WORD, ACLSIZ), i ACLSIZ 
SRMS~VALFLD(WORD, 0), i ACLLEN 
$RMS~VALFLD(LONG, ACLCTX), i ACLCTX 
SRMS~VALFLD(LONG, 0) i ACLSTS 
>) Zs 
lee 
1 
i $XABPRO_INIT 
Macro to dynamically initialize the XABPRO control block. 
ice 
KE YWORDMACRO 
SXABPRO_INIT( 
XAB, 
tg 1C=<0,0>, PRO, MTACC=0 
ROT OPT, UST _MODE=0,  ACLBUF=0, ACLSIz=6, 
RCC TREO’ )= 
( BIND SRMS_PTR = XAB; 
CHSF ILL (07 XABSC_PROLEN, CHSPTR(SRMS_PTR)); 
SRMS_VALFLD_INI ($RMS_PTR, (XAB$B_COD), XABSC_PRO); ' COD 
SRMS~VALFLD~ INI (SR mse PTR. (XAB$B~BLN) , XABSC"PROLEN); ! BLN 
SRASTVALFLD~ INI (SP 
SRMS-VA FL LDTINI (SR mS bir, (XABSL_NXT) NXT); ! NXT 
$RMS~VALP ROWINI (SR mS PIR. + BRENOVE (PROS } ; i 
$RMS~VALFL LD-INI (SRM "(x MTACC); i MTACC 
SRMS~BITFLD~ INI ($RMS~ -pIR, (XAB$B~PROT “Opt, XABSM_, PROT_OPT); i PROT_OPT 
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SRMS_VALUIC_INI(SRMS_PTR, REMOVE (UIC)); 
SRMS_VALFLD_INI ($RMS-PTR, (XAB$B_PROT_MODE), PROT_MODE); 
$RMS “VALE LDCINI (SPARE) ; 
SRMS~VALFLD-INI (S$RMS_PTR, (XABSL_ACLBUF), ACLBUF); 
SRMS_VALFLD_INI(SRMS_PTR, (XAB$W_ACLSIZ), ACLSIZ); 
SRMS~VALFLD_INI ($RMS_PTR, (XABSW_ACLLEN) , 0); 
SRMS_VALFLD_INI (SRMS_PTR, (XABSL_ACLCTX), ACLCTX); 
. x, SRMSLVALFLDZINI (SRMSIPTR, (XABSLIACLSTS) , 0); 
e+ a 
i] 
i $XABALL_DECL 
i Permits the declaration of the XABALL control block 
} where initialization is not required. 
= 
MACR 
SXABALL_DECL = BLOCKCXABSC_ALLLEN,BYTE] %; 
lee 
i] 
$XABALL 
Macro to allocate and initialize the XABALL control block. 
Sai 
KE YWORDMACRO 
SXABALL ( 
NXT=0, AlD=0, ALN=ANY, ALQ=0, 
AOP, BKZ=0 DEQ=0 
LOC=0, RFI=<0,0,0>,  VOL=05= 
$XABALL_DECL 
INITIALT 
SRMS_VALFLD(BYTE, XABS$C_ALL) ' COD 
SRMS~VALFLD(BYTE, XABSC-ALLLEN), | BLN 
SRMS~VALFLD(WORD, 0) i SPARE 
SRMS~VALFLD(LONG. NXT), i NXT 
SRMS-BITFLD(BYTE, XABSM_, AOP), i AOP 
SRMS~CODFLD(BYTE, XABSC_, ALN), i ALN 
SRMS~VALFLD(WORD, VOL), i VOL 
SRMS~VALFLD(LONG, LOC), i Loc 
SRMS~VALFLD(LONG, ALQ), i ALQ 
$RMS~VALFLD(WORD, DEQ), i DEQ 
SRMS~VALFLD(BYTE, BKZ), i BKZ 
SRMS~VALFLD(BYTE AID), i AID 
SRMS~VALRF I (XREMOVE (RFI)), i RFI 
SRMS~VALFLD(WORD, 0) i SPARE 


) &; 
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'e4 
' 


SXABALL_INIT 


i Macro to dynamically initialize the XABALL control block. 


KEYWORDMACRO 
SXABALL_1NIT( 
XAB, 
NXT=0, AlD=0, ALN, 
AOP, BK2= DEQ=0 
LOC=0, RFI=<6,0,0>, VOL=0S= 


( BIND SRMS_PTR = XAB; 
CHSF ILL (O,XABSC_ ALLEN, CHSPTR(SRMS_PTR)); 


SRMS_VALFLD_INI(SRMS_PTR, (XAB$B_COD), 
MS_VALF $R R N 


SRMS~VALFLD~INI ($RMS_PTR, (XAB$B_BLN) 

SRMS_VALFLD~INI ($RMS_PTR, (XABSW_ SPARE) , 

MS~VALFLD—INI (SRMS_PTR. (XABSL_NXT) , 

SRMS"BITFLD_INI (SRMS_PTR, (XABSB_AOP), XABSM_, 
SRMS~CODFLD-INI ($RMS_PTR,(XABSB_ALN), XABSC-, 
SRS “VALELDINI (SRMS_PTR, (XABSW_VOL) 
SRMS~VALFLD~INI ($RMS_PTR, (XABSL_LOC) , 
SRMS~VALFLD—INI ($RMS_PTR, (XABSL_ALQ) , 
SRMS~VALFLD—INI ($RMS_PTR, (XABSW_DEQ) , 
$RMS~VALFLD~INI ($RMS_PTR, (XABS$B_BKZ). 
SRMS~VALFLD~INI ($RMS_PTR, (XAB$B_AID) 
SRMS_VALRF1_INI ($RMS_PTR, SREMOVE (RFS); 

Mure SRMS~VALFLD~INI ($RMS_PTR, (XABSW_SPARE) 


SXABFHC_DECL 


Permits the declaration of the XABFHC control block 
where initialization is not required. 


SXABFHC_DECL = BLOCKCXABSC_FHCLEN,BYTE) % 


‘ee 
] 


; $XABFHC 


ALQ=0, 
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: Macro to allocate and initialize the XABFHC control block. 


KEYWORDMACRO 

SXABF HC ( 
NXT=0)= 

SXABFHC_DECL 

INITIALT 
SRMS_VALFLD(BYTE, XABSC_FHC) 
SRMS~VALFLD(BYTE. XABSC~FHCLEN), 
SRS “VALELD (WORD, 
SRMS VALFLD(LONG, NXT), 

+ REP 9 OF SRM _VALFLD(LONG, 


i++ 
SXABFHC_INIT 
: Macro to dynamically initialize the XABFHC control block. 
leo 
KEYWORDMACRO 
SXABFHC_INIT( 
XAB, 
NXT=0)= 


( BIND SRMS_PTR = XAB; 
CHSFILL(O7XABSC_ FHCLEN, CHSPTR(SRMS PTR)); 


SRMS_VALFLD_INI (S$RMS_PTR, (XABSB -£0D), 
! SRMS~VALFLD— INI (SRMS“PTR, (XABSW_ SPARE) , 


SRMS~VALFLD~ INI ($RMS_P $L-NXT), 
' re REP 9 OF $RMS_VALFLD~ “TNT SARS BTR. (XABSL_SPARE), 


SXABKEY_DECL 


Permits the declaration of the XABKEY control block where 
initialization is not required. 
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! COD 

! BLN 
SPARE 
! 


! NXT 
! REMAINING FIELDS 


XABSC_FHC); 


KABSC_ “FHCLEN) ; 


Nxt); 
0); 


CoD 

BLN 

SPARE 

NXT 

REMAINING FIELDS 


—TOMMOOWZ EM KOCH TO MMOOWZ EF ACH ILOMMOOWMS ES ACH LO MMOOOZ SEF ACH TO MMOOW 
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MACRO 
SXABKEY_DECL = BLOCKCXABSC_KEYLEN,BYTE) 2%; 


SXABKEY 
Macro to allocate and initialize the XABKEY control block. 


KEYWORDMACRO 

SXABKEY ( 
DAN=0, DFL=0, DIP=STG, FLG, 
IAN=0, IFL=0, KNM=0, LAN=0 
NXT=0 NUL=0 POS PO50=6, 
PoSi1=6, POS2=0, POS $=0, POS4=0, 
POS5=0, POS6=0, P0S7=0, KREF=0, 
S12 $120=0, $171=0, $122=0, 
$12$=0, 512420, §125=0, $126=0, 
$127=0, PROLOG=0)= 

SXABKEY DECL 

INITIALT 
SRMS_VALFLD(BYTE, XABSC_KEY) ' COD 
SRMS_VALFLD(BYTE, XABSC-KEYLEN), / BLN 
SRMS~VALFLD(WORD, ) i SPARE 
SRMS~VALFLD(LONG, NXT), i NXT 
SRMS-VALFLD(BYTE, IAN), i TAN 
$RMSVALFLD(BYTE, LAN), i LAN 
$RMS~VALFLD(BYTE, DAN). i DAN 
SRMS-VALFLD(BYTE, 0), i LVL 
SRMS~VALFLD(BYTE, 0); i 1BS 
SRMS-VALFLD(BYTE. 0); i DBS 
SRMS~VALFLD(LONG 0) i RVB 
SRMSBITFLD(BYTE, XABSM_, FLG), i FLG 
SRMS~CODFLD(BYTE, XABSC~, DIP). i DTP 
SRMS~VALFLD(BYTE. 0), i NSG 
$RMS~VALFLD(BYTE, NUL), i NUL 
SRMS~VALFLD(BYTE, 0) i TKS 
SRMS-VALFLD(BYTE. KREF), i REF 
SRMS~VALFLD (WORD, 0), i MRE 
$RMS~VALFLD (WORD, IFL), i TFL 
$RMS~VALFLD(WORD, DFL). i DFL 

IF “NULL (POS) 

XTHEN 
SRMS_VALFLD(WORD, POsO), ' poso 
SRMS~ =VALELD (WORD, POS1), i pos} 
$RMS~VALFLD (WORD, POS¢). i pos 
SRAS"VALFLD (WORD, POSS), i pos 
SRMS~VALFLD(WORD, POS4). i pos4 
$RMS~VALFLD( POSS), i poss 
SRMS~VALFiD (WORD, POS), i pOS6 
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RELSE SRMS_VALFLD(WORD, POS7), ! POS7 
SRMS_8FLD(WORD, ZREMOVE (POS)), ! pos 

Z1F XNULL(S1Z) 

ZTHEN 
SRMS_VALFLD(BYTE, $120), ' $120 
SRMS_VALFLD(BYTE, $121), ! $121 
SRMS_VALFLD(BYTE, 3146} ! 3it¢ 
SRMS_VALFLD(BYTE, $123), ! $12 
$RMS_VALFLD(BYTE, $124), ' $124 
$RMS_VALFLD(BYTE, $125), ' $125 

MS_VALFLD(BYTE, $126), ' $126 

on os SRMS_VALFLD(BYTE, $127), ! §127 

ae SRMS_8FLD(BYTE, ZREMOVE(SIZ)), ! $12 
SRMS_VALFLD(WORD, 0), ' SPARE 
SRMS_VALFLD(LONG, KNM), ' KNM 
SRMS~VALFLD(LONG, 0), ! DVB 
SRMS_VALFLD(BYTE, 0), i TYPO 
SRMS_VALFLD(BYTE, 0), ! TYP1 
SRMS_VALFLD(BYTE, 0), ' TYP 
SRMS_VALFLD(BYTE, 0), ' TYP 
SRMS_VALFLD(BYTE, 0), ! TYP4 
SRMS_VALFLD(BYTE, 0), ' TYPS 
SRMS_VALFLD(BYTE, 0), ' TYP6 
SRMS_VALFLD(BYTE, 0), i TYP7 
SRMS_VALFLD(BYTE, PROLOG), ' PROLOG 
SRMS “VALFLD(BYTE, 0) ' SPARE 

) &; 


as 
SXABKEY_INIT 

2 Macro to dynamically initialize the XABKEY control block. 
ie 

KE YWORDMACRO 

SXABKEY_INIT( 


XAB, 

DAN=0, DFL=0, DIP=STG, FLG, 
mf ef ihe bOSOe 
Posi =h. poss=0. p0s=0. fet 
5) vais $120=0, $121=0, $122=0, 
128-0, 5124=0, $125=0, $126=0, 
$127=0. PROLOG=0) = 


RMSMAC .REQ; 1 


( BIND SRM 
CHSF ILL 
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PTR = 
7 XABSC KEYLEN, CHSPTR(SRMS_PTR)); 


SRAS “VALE LD INI ($RMS_PTR, (XABSB_ pope 


$RMS_VALFLD INI (SRMS “PTR, (XABSB- BLN) 
SRMS "VA FLD-INI($RM R. (XABSW_SPAR RE), 
SRMS"VALFLD™ INI (SRMS~ 7 PIR, (XABSLCNKT 
$SRMS—VALFLD~INI ($RMS_ PTR, (XABSB- TAN), 
$RMS~VALFLD~INI ($SRMS-PTR, (XAB$B_LAN), 
SRMS_VALFLD~INI ($RMS_PTR, (XABS$B_DAN) 
$R4S~VALFLD-INI (SRMS~PTR, (XABSB_LVL), 
SRS “VALFLD= INI ($RMS-PTR, (XAB$B_1BS) , 
SRMS_VALFLD~INI ($RMS_PTR, (XAB$SB_DBS), 
$RMS—VALFLD~INI ($RMS_PTR, (XABSL_RVB), 
$RMS~BITFLD-INI (S$RMS_PTR. (XABSB_FLG) . 
$RMS~CODFLD-INI ($RMS_PTR,. (XABSB_DTP), 
$RMS_VALFLD~INI ($RMS_PTR. (XABSB_NSG) 
$RMS~VALFLD~ INI (SRMS“PTR, (XABSB_NUL) , 
$RMS~VALFLD~INI (SRMS_PTR. (XABSB_TKS) , 
SRMS“VALELD- INI ($R RMS “PTR. (XABSB_REF), 
$RMS—VALFLD~INI ($RMS_PTR, (XABSW_MRL) . 
$RMS~VALFLD~INI ($RMS_PTR, (XABSW_IFL), 
SRMS-VALFLD_INI($R RMS “PTR, (XABSW_DFL) . 

B1F_ SNULL (POS) 
SRNS_VALFLD_INI (SRMS_PTR, (XABSU_POSQ) , 
$RMS~VALFLD—INI ($RMS_PTR. (XABSW-POS1), 
$RMS~VALFLD~ INI (SRMS_PTR, (XABSW_ W-POS¢) 
$RMS_VALFLD~INI ($RMS_PTR. (XABSW_POS3) . 
$RMS~VALFLD~ INI (SRRS PTR. (HABSY Post), 
SRS “VALFLD= INI ($RMS~PTR, (X POSS). 
$RM FLD-INI ($RMS_PTR, (X POS6). 
$RMS— VALELD= INI ($RMS~PTR. (KABSUT poss: 


XELSE 

om SRMS_8FLD_INI(SRMS_PTR, X%STRING('XABSW_POS'), 

HF ENULLCSIZ) 
S$RMS_VALFLD_INI(S$RMS_PTR, (XAB$B_S1Z0), 
SRMS_VALFLD_INI ($RMS_PTR, (XAB$B_S1Z1), 
SRS “VALFLD= “IN Gonme Pra: cHaBse- S18) 
SRS “VALFLD “INI ($RMS~PTR. (XAB$B_S1Z3). 
SRMS~VA FLD INI ($RMS_PTR, (XABSB_SIZ4), 
SiS -VALE LD” INI (SRMS“PTR, (XABSB_$1Z5) 
$RMS~VALFLD—INI ($RMS_PTR. (XABSB $126). 

“ag SRMS~VALFLD~ INI ($RMS_PTR. (XABSB_S1Z7). 

wer SRMS_8FLD_INI(SRMS_PTR, %STRING('XAB$B_SIZ'), 
SRNS_VALFLD_INI(SRMS_PTR, (KABSU_ SPARE) , 
$RMS~VALFLD~INI ($SRMS_PTR. (XABSL_KNM) , 
SRNS"VALFLD“INI (SRMS7PTR, (XABSL DVB) 
SRMS-VALFLD~ INI ($RMS_PTR, (XABSB_PROLOG) , 
$RMS~VALFLD—INI ($RMS_PTR, (XABSB-SPARE) , 


on ee ee ee ee ee ee ee 


ZREMOVE (POS) ); 


0); 
KNM); 


PROLOG); 
0); 


ps] 
< 
@o 
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0) &; 


i $XABSUM_DECL 


! 
' 
! 
! 
! Permits the declaration of the XABSUM control block where 
initialization is not required. 

i] 


MACRO 
$SXABSUM_DECL = BLOCKCXABSC_SUMLEN,BYTE) %; 
'e+ 
! 
! $XABSUM 
! Macro to allocate and initialize the XABSUM control block. 
— 
KE YWORDMACRO 
SXABSUM( 
NXT=0)= 
SXABSUM_DECL 
INITIALT 
$SRMS_VALFLD(BYTE, XABSC_SUM) 
$RMS~VALFLD(BYTE, XABSK~SUMLEN) , 
SRMS_ _VALFLD(WORD, 0 
$RMS~VALFLD(LONG, NXT), 
$RMS~VALFLD (BYTE, 0), 
SRMS_VALFLD(BYTE, 0), 
es SRMS_ _VALFLD(WORD, 0) 
lee 
1 
; $SXABSUM_INIT 
. Macro to dynamically initialize the XABSUM control block. 
ice 
KE YWORDMACRO 
$XABSUM_INIT( 
yYAB, 


NXT=0)= 


RMSMAC REQ; 1 


D SRMS_PT 


(B 
C 


0) &; 


IN 
HSFILL(O, X 
SRMS_VALFLD_ 


LD 


ee 
PAHAAAMH 
rd 
pecs 
uw 
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R = XAB; 
ABSC_SUMLEN, CHSPTR(SRMS_PTR)); 


_PTR, (XABS$B_COD), 
He 
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SXABCXF _DECL 


Permits the declaration of the XABCXF control block where 
initialization is not required. 


MACRO 
SXABCXF_DECL = BLOCKCXABSC_CXFLEN,BYTE) 2%; 
e+ 
' 
i $KABCKF 
: Macro to allocate and initialize the XABCXF control block. 
lon 
KEYWORDMACRO 
SXABCKF ( 
NXT=0)= 
SKABCKF DECL 
INITIALT 
SRMS_VALFLD(BYTE, XABSC_CXF) ' COD 
SRMS~VALFLD(BYTE, XABSK-CXFLEN), / BLN 
SRMS_VALFLD(WORD, 0) i SPARE 
$RMS_VALFLD(LONG, NXT), i NXT 
SRMS_VALFLD(LONG, 0), i §Ts 
SRMS_VALFLD(LONG, 0), i STV 
SRMS~VALFLD(LONG, 0), i COP 
SRMS~VALFLD(LONG, 0), i BKPBITS 
SRMS~VALFLD(WORD, 0), i IF] 
SRMS~VALFLD(BYTE, 0), i CXFVER 
SRMS-VALFLD(BYTE, 0), i SPARE 
SRMS_VA ALFLD(LONG, 0), i SPARE 
: Above common with XABCXR 
SRR.  VALFCDCUOR . 0), ' DEQ 
SRMS~VALFLD(BYTE, ), i FAC 
SRMS~VALFLD(BYTE, ae i SHR 
RMS~VALFLD(WORD, + i RTDEQ 
SRMS~VALFLD(BYTE, 0), i SPARE 
$RMS~VALFLD(BYTE, 0), i ORGCASE 
$RM =VALELD (WORD, ), i GBC 
SRMS~VALFLD(BY Te, ¥ i RTV 
SRMS“V ALFLD(BYTE, te i SPARE 
SRMS"V FLD(LONG, ), i SPARE 
SRMS~VALFLD(LONG, ), i SPARE 
$RMS~VALFLD(LONG, ), i SPARE 
$RMS~VALFLD(LONG, ) i SPARE 
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Lee 

! 

SXABCXF_INIT 

i Macro to dynamically initialize the XABCXF control block. 


KEYWORDMACRO 
SXABCXF_INIT( 
XAB, 
NXT=0)= 


(BIND $SRMS_PTR = 
CHSFILL(O> XABSC *CKELEN, CHSPTR(SRMS_PTR)); 


SRMS_VALFLD_INI(S$RMS_ eTR. (XAB$B_COD), XABSC_CXF); ' COD 
SRMS_VALFLD_INI ($RMS_ PTR ; (XABSB~BLN) XABSc_°XFLEN); | BLN 

' SRMS VAL FLD- “INI ($RMS~PTR, (XABSW_ SPARE) , 0); i SPARE 
SRMS_VALFLD_INI (SRMS_ pT > (XABSLINXT) , NXT); i NXT 

ShnS-VALFLD- INI ($RMS_PTR, ‘XABSL STS) , STS): i ST§ 

i $RMS~VALFLD—INI ($RMS_PTH. (XABSL_STV). STV): i §TVv 

i SRMS“VALELD INI ($RMS~PTR, (XABSL_ COP) COP) i Cop 

i SRMSVALFLD~INI ($RMS_PT®, (XABSLBKPBITS), BKPBITS); i BKPBITS 

i SRMS~VALFLD~INI ($RMS_PTR, (XABS$W_IFI) IPL): i FI 

i $RMS~VALFLD~INI ($RMS_PTR, (XABSB_CXFVER, ); i CXFVER 

i SRMSVALFLD~INI ($RMSPTR, (XABSB_SPARE) , 0°: i SPARE 

i $RMS~ =VALFLD~INI (SRMS- PTR (XABS$L~SPARE), 0): i SPARE 

! ALL Of above inc th XABCXR 

i SRMS. _VALFLD_ INT CSRMS PTR, CXABSU. DEQ), DEQ); ' DEQ 

i SRMS~VALFLD~INI ($RMS_PTR, (XABS$B_FAC) , FAC): i FAC 

i SRMS~VALFLD~INI ($RMS_PTR. (XABSB_ SHR) : i SHR 

i SRMS~VALFLO—INI ($RMS_PTR, (XABSW_RTDEQ), RIDEQ); i RTDEQ 

i SRMS_VALFLD—INI ($RMS_PTR, (XABSB_ ) oo: ° i SPARE 

i SRMS~VALFLD—INI ($RMS_PTR, (XABS$B_ORGCASE) , ORGCASE); i ORGCASE 

i SRMS~VALFLD~INI($RMS_PTR, (XABSW_CXFGBC) , 0); i GBC 

i $RMS~VALFLD~ INI ($RM “PTR, (XABSB_CXFRTV), 0): i RETRIEVAL WINDOW 

i SRMS~VALFLD~INJ ($SRMS_PTR, (XAB$B_ SPARE) , 0); i SPARE 

i SRMS~VALFLD~ INI (SRMS~PTR. (XABSL SPARE), ); i SPARE 

i $RMS~VALFLD~INI ($RMS_PTR, (XABSL_ SPARE) , 0); i SPARE 

i SRMS~VALFLD~ INI ($RMS_PTR, (XABSL SPARE) , ); i SPARE 

i SRMS~VALFLD~ INI ($RMS_PTR, (XABSL~SPARE) , 0): i SPARE 


0) &; 


+t 
! $XABCXR_DECL 


' 
i 
i 
' 
i Permits the declaration of the XABCXR control block where 
PS initialization is not required. 

i 
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MACRO 
SXABCXR_DECL = BLOCKCXABSC_CXRLEN,BYTE) 2%; 
le 
' 
SXABCXR 
Macro to allecate and initialize the XABCXR control block. 
ioe 
KEYWORDMACRO 


SXABCXR ( 
NXT=0, CXRBUF =0, CXFBFZ=0)= 


Tattiae DECL 


TIALT 
SRMS_VALFLD(BYTE, XABSC_CXR), ! CoD 
SRMS_VALFLD (BYTE, XABSK-CXRLEN), | BLN 
SRMS-VALFLD (WORD, 0) i SPARE 
SRMS-VALFLD(LONG, NXT), i NXT 
SRMS~VALFLD (LONG, 0), i STs 
SRMS~VALFLD (LONG, 0); i §TVv 
$RMS~VALFLD(LONG, 0); i Cop 
SRMS~VALFLD(LONG, 0); i BKPBITS 
SRMS~VALFLD (WORD, 0); i 1S] 
SRMSVALFLD(BYTE, 0); i CXRVER 
SRMS~VALFLD (BYTE, 0); i SPARE 
SRMS~ =VALFLD(LONG, 0); i SPARE 
Above in n with XABCXF 
SRMS *VALELD (BYTE. 0), ' CXRMBF 
0) i €XRMBC 
CXRBFZ), i €XRBFZ 
0), i €XRVBN 
0); i €XROFF 
0); i €XRPOSO 
0); i CXRPOS4 
0). i SPARE 
+ i CXRCURO 
0); i EXRCUR4 
ts i SPARE 
& i CXRSID 
i i €XRSID 
0), i SPAR 
> i CXRCNT 
0). i CXRKRE 
) ' CXRKLEN 
CXRBUF, i €XRBUF 
), i SPARE 
0) i SPARE 
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KE YWORDMACRO 
SXABCXR_INIT( 


XAB, 
NXT=0, CXRBUF =0, CXRBF 2=0)= 


(BIND $RMS_PTR = 
CHSFILL(O> XABSC *CRALEN, CHSPTR(SRMS_PTR)); 


SRMS_VALFLD_INI (SRMS_PTR, (XABSB ~con}e 


$RMS-VALFLD_INI ($RMS— ‘ 
$RMS~VALFLD~INI ($RMS_PTR, (XABSL_NXT) , 
SRMS~VALFLD~INI ($RMS-PTR, (XABSL_STS), 
$RMS~VALFLD~INI ($RMS_PTR, (XABSL_STV), 
SRMS~VALFLD~INI ($SRMS_~PTR, (XABSL COP) 
SRMS~VALFLD—INI ($RMS_PTR, (XABSL_BKPBITS) , 
$RMS~VALFLD~INI ($RMS_PTR, (XABSW_1S1 
$RMS~VALFLD_INI ($RMS_PTR, (XABSB_CXRVER), 
$RMS_VALFLD_INI ($RMS_PTR, (XABSB_SPARE) , 
SRMS- SVALFLD= INI (SRAS“P PTR Ry (XABSLS SPARE). 
Vv n 

SRMS -VALFLD_INI (SRMS_ Pr. (XABSB_ CKRNBE) 
$RMS~VALFLD~INI ($RMS_PTR, (XABSB_ 
$RMS-VALFLD_IN! ($RMS— PTR: (KABSUT CXRBFY). 
$RMS~VALFLO—INI ($RMS_PTR, (XABSL_CXRVBN) . 
$RMS~VALFLD_INI ($RMS_PTR. (XABSL_CXROFF ) 
SRMS~VALFLD~INI ($RMS_PTR, (XABSL_—CXRPOSOS, 
$RMS_VALFLD—INI ($RMS_PTR, (XABSW_CXRPOS4) , 
$RMS~VALFLD~INI ($RMS_PTR, (XABSW_ SPARE) 
SRMS~VALFLD~INI ($SRMS_PTR, (XABSL~CXRCURO) , 
SRMS_VALFLD_INI ($RMS_P7R, (XABSW_CXRCURG) , 
SRMS~VALFLD~ INI ($RMS_PTR, (XABSW_ SPARE) 
$RMS~ VALFLD~ INI ($RMS_PTR, (XABSL_~CXRSIDO), 
SRMS~VALFLD_INI ($RMS_PTR, (XABSW_CXRSID4), 
SRMS~VALFLD~INI ($RMS_PTR, (XABSW_ SPARE) 
$RMS~VALFLD~ INI ($RMS_PTR, (XABSW_CXRCNTS, 

“VALFLD~ INI ($RMS~PTR. (XAB$B_CXRKRF ) 
SRMS~VALFLD~ INI ($RMS_PTR, (XABSB_CXRKLENS , 
SRMS~VALFLD~ INI ($RMS_PTR, (XABSL_CXRBUF) , 
$RMS~VALFLD~ INI ($RMS~PTR, (XABSL SPARE), 
SRMS~VALFLD~ INI ($RMS_PTR. (XABSL SPARE), 


1 
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Macro to dynamically initialize the XABCXR control block. 


lo te 
‘an 
<>< 
Dw 
-~ 
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z 
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32 


1 
RMSMAC REQ; 1 16-SEP-1984 16:53:38.13 Page 33 


++ 
SXABJNL _DECL 


' 
i 
i 
i 
i Permits the declaration of the XABJNL control bock where 
2 initialization is not required 

i. 


MACRO 
SXABJNL_DECL = BLOCKCXABSC_JNLLEN,BYTE) %; 
le¢ 
i 
{ $XABJNL 
| Macro to allocate and initialize the XABJNL control block 
(oo 
KEYWORDMACRO 
SXABUNL ( 
JOP, BIS=0, AIS=0, ATS=0, 
BIA=0, AIA=0. ATA=0, 
BIN,  AIN,  ATN,  NXT= 0) = 
SXABJNL_DECL 
INITIALT 
$RMS_VALFLD(BYTE, XABSC_JNL) 'COD 
SRMS~VALFLD(BYTE. XABSC-JNLLEN), ‘BLN 
SRMS-VALFLD(WORD, 0 i SPARE 
SRMS~VALFLD(LO NXT), iNXT 
SRMS-BITFLD(WORD, XABSM_, JOP): i JOP 
SRMS~ VALFLD (WORD, 0), i SPARE 
ZIF XNULL(BIN) XTHEN 
al $R4S_VALFLD(BYTE, BIS), 'BIS 
me SRMS_VALFLD(BYTE, XCHARCOUNT(BIN)), IBIS 
SRMS_VALFLD(BYTE, 0», 'BIL 
SRMS~VALFLD(WORD, ) i SPARE 
Z1F XNULL(BIN) XTHEN 
ram SRAS _VALFLD (LONG, BIA), 'BIA 
oa SRMS_VALFLD(LONG, UPLIT BYTE(BIN)), 'BIA 
ZIF XNULL(AIN) XTHEN 
mar SRMS_VALFLD(BYTE, AIS), 'AIS 
Mes SRMS_VALFLD(BYTE, ZCHARCOUNT(AIN)), ‘AIS 
SRMS_VALFLD(BYTE, 0», AIL 
SRMS~VALFLD(WORD. ) i SPARE 


RIF ZNULL(AIN) ZTHEN™ 
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REL SE SRMS_VALFLD(LONG, AIA), 'AIA 

uF SRMS_VALFLD(LONG, UPLIT BYTECAIN)), !AIA 

ZIF ZNULLCATN) XTHEN 

BEL SE SRMS_VALFLD(BYTE, ATS), !ATS 

uF SRMS_VALFLD(BYTE, ZCHARCOUNT(ATN)), 'ATS 
SRMS_VALFLD(BYTE, 0), 'ATL 
SRMS_VALFLD(WORD, 0), ! SPARE 

XZIF ZNULLCATN) ZTHEN 

SEL SE SRMS_VALFLD(LONG, ATA) 'ATA 

url SRMS_VALFLD(LONG, UPLIT BYTECATN)) 'ATA 


) %; 
i++ 
: SXABJNL_INIT 
Macro to dynamically initialize the XABJNL control block 


KEYWORDMACRO 
SXABUNL INIT T( 
NXT = 0, JOP, BIS=0, AIS=0, ATS=0, 
BIA=0, AIA=0, ATA=0, 
BIN,  AIN,  ATN) = 
( BIND SRMS_PTR = XAB; 
CHSF ILL (07 XABSC_JNLLEN, CHSPTR(SRMS_PTR)); 
SRMS_VALFLD_INI(S$RMS_PTR, (XABSB_ cop), XABSC_JNL); 'COD 
$RMS~VALFLD~INI ($RMS_PTR, (XABSB_BLN KABSC “JNLLEN); ‘BLN 
SRMS~VALFLD~INI ($RMS_PTR, (XABSL~ “AK. NXT iNXT 
SRMS_BITFLD_INI(S$RMS_PTR,(XABSW_JOP), JOP); ‘JOP 


SRMS_VALFLD_ INI(SRNS PTR. (XABS$B_BIS 

% NULL (B (BIN) xf HEN N15 HE HES XCHARCOUNT(BIN) ZFI); !BIS 
$RMS_VALFLD_INI (SRMS_PTR 0); ‘BIL 
$RMS~VALFLD~ INI (S$RMS~PTR, CHABSe e-BIA 
NULL CBIRD XTHEN BIA We. UPLIT BYTE(BIN) %FI); !BIA 


SIF 7% 
SRMS_VALFLD_INI(SRMS_PTR, (XABSB_A 

ZF ~ZNUL UL Al CAIN) athe AIS MELSE XCHARCOUNT(AIN) 2FI); AIS 
SRMS -VAL FLD_INI(SR (XAB$B -AIL), 0); ‘AIL 
$RMS~VALFLD~IN NI (SRRSo PIR’ (XABSL ~AIA) 

ZIF-ZNULL(AIN) %THEN AIK ZELSE UPLIT BYTEC(AIN) %FI); !AIA 
SRMS_VALFLD_INI(S$RMS_PTR, (XABSB_ATS 

ZIF-ZNULL(ATR) ZTHEN ATS LeLge ZCHARCOUNT(ATN) %FI); !ATS 


16-SEP-1984 16:53:39.13 Page 35 


RMSMAC REQ; 1 


! ATL 


E UPLIT BYTECATN) %F1); 


'ATA 


7a 


0) &; 
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' 
i 
SXABTRM_DECL 

i Permits the declaration of the XABTRM control block 
where initialization is not required. 

|! ai 


ie 


SXABTRM_DECL = BLOCKCXABSC_TRMLEN,BYTE) % 
“hg 


! $XABTRM 


' 
' 

: Macro to allocate and initialize the XABTRM control block. 
i 


SXABTRM( 


i 
i 
we EYWORDMACRO 
i 
j 
| NXT=0, ITMLST=0, ITMLST_LEN=0 


thy DECL 


1ALT 
SRMS_VALFLD(BYTE, XABSC_TRM) ' COD 
$SRMS_VALFLD(BYTE, XABSC_ “TRMLEN) , ' BLN 
SRMS_VALFLD(WORD, 0), ' SPARE 
$SRMS_VALFLD(LONG, NXT), ' NXT 
SRMS_VALFLD(LONG, 0), ' ITMLST 
.s $RMS_ _VALFLD(WORD, 0) ! ITMLST_LEN 
; 
pe 
ji 
lj SXABTRM_INIT 
i Macro to dynamically initialize the XABTRM control block. 
a 
_ KEYWORDMACRO 
) $XABTRM_INIT( 
KAB, NXT=0, ITMLST=0, ITMLST_LEN=0 
( BIND $RMS_ PTR = XAB; 
CHSF ILL (07 XABSC _TRMLEN, CHSPTR(SRMS_PTR)); 
SRMS_VALFLD_INI(S$RMS_PTR, <(XAB$B_COD), XABSC_TRM); 
SPMS~ ~VALFLD- INI ($RMS_ PTR. (XAB$B~ BLN), XABSC “TRMLEN) ; 


! COD 
! BLN 


———————————— 


L 
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SRMS_VAL 
SRMS_VAL 
$RMS~VAL 


0) &; 


j 
SL TLL SSeS senses seneeiies a | 


Qt ee rH ee a 
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+ 


SRAB_DECL and SRAB_DECL_ASYN 


Permit the declaration of the RAB control block 
where initialization is not required. 


Note that a RAB intended for ASYNCHRONOUS I/0 
differs from one intended for SYNCHRONOUS 1/0 
a RMS implementations. 


LOCAL RAB_O1 : SRAB_DECL_ASYN; ! for ASYNCHRONOUS I/0 
‘ey - RAB-O2 : S$RAB-DECL; ! for SYNCHRONOUS I/0 


03 : $RAB AB_DECL; 
ERTERNEC. RAB_ 04 :$RAB_DECL_ASYN; 


| | 
MACRO | 
$RAB_DECL 
GLOCKTRABSC -BLN.BYTE) 2%, 
SRAB_DECL_ASYN 
a BCOCKCRABSC _BLN,BYTE] %; 
* | 
1 | 
i $RAB 
i Macro to allocate and initialize the RAB control bloc 
: To indicate that the RAB on be used for ASYNCHRONOUS i/o, 
: indicate a value for the ASYN keywordparameter as in 
the example: 
OWN RAB_O1 : $RAB ( ASYN=YES , ....); |! ASYNCHRONOUS | 
ape | 
KEYWORDMACRO ' 
SRAB( | 
RAC=SEQ, ROP, UBF =0, USZ=0, 
RBF=0, RS2Z=0, BKT=0, KBF=0, 
PBF=0, KSZ=0, PS7=0, RHB=0, | 
FAB=0, MBF=0, mMBC=0, TMO=0 
CTX=0, KRF=0, ASYN=NO, XAB=05 = 
ZIF ZIDENTICAL(ZSTRINGCASYN),‘YES") 
XTHEN SRAB_DECL_ASYN 
Bet SE $RAB_DECL™ 
INITIAL ( 
SRMS_VALFLD(BYTE, RABSC_BID), ' BID 
RABSC BLN), ! BLN 
SRMS_VALFLD(WORD, ; on 
SRMS~BITFLD(LONG, RABSM_, ROP), i ROP 


wn 
» 
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SRMS -VALELD (LONG, 0), ' §TS 
SRMS~VALFLD(LONG, 0), i §ty 
REP 3 OF SRMS VALFLD (WORD, 0), i RFA 
$SRMS_VALFLD(WORD, 0), ! SPARE 
SRMS~VALFLD(LONG, CTX), i CTX 
SRMS~VALFLD(WORD, 0), i SPARE 
$RMS~CODFLD(BYTE, RABSC_, RAC), i RAC 
SRMSVALFLD(BYTE, TMO), i TMO 
SRMS~VALFLD(WORD, USZ), i SZ 
SRMS-VALFLD(WORD, RSZ), i RS2 
$RMS~VALFLD(LONG, UBF), i UBF 
SRMS~VALFLD(LONG, RBF), i RBF 
$RMS_VALFLD(LONG, RHB) i RHB 
SRMS_VALFLD(LONG, (KBFS+(PBF)), | KBF and PBF 
$RMS~VALFLD(BYTE, (KSZ)+(PSZ)), ! KSZ and PSZ 
SRMS_VALFLD(BYTE, KRF), i KRF 
| SRMS_VALFLD (BYTE, MBF), i MBF 
$RMS~VALFLD (BYTE, MBC), i MBC 
| SRMS~VALFLD(LONG, BKT), i BKT 
| $RMS~VALFLD(LONG, FAB), i FAB 
os $RMS—VALFLD(LONG, XAB) i XAB 
a3 
la | 
E $RAB_INIT | 
i Macro to dynamically initialize the RAB control block. 
lo ' 
| 
KE YWORDMACRO | 
SRAB_INIT( | 
RAB, 
RAC, ROP, UBF=0, uS7Z=0, 
RBF=0, RS2=0, BKT=0, KBF=0, 
PBF=0, KS2=0, PS72=0, RHB=0, 
FAB=0, MBF =0, MBC=0, TMO=0 
CTx=0, KRF=0, ASYN=NO, XAB=05= 
( BIND D $RMS_PTR = RAB; 
CHSF ILL (O7RABSC_BLN, CHSPTR(SRMS_PTR)); 
| 
SRMS_VALFLD_INI ($RMS_PTR, (RAB$B_BID), RABSC_BID); ' BID 
| $RMS~VALFLD~ INI ($RMS_PTR, (RABSB_BLN) . RABS$C~BLN); i BLN 
- SRMS~VALFLD~INI ($RMS~PTR, (RABSW ISI), ); i ISI 
| SRMS"BITFLD-INI($RMS-PTR,(RABSL_ROP), RABSM_, ROP); i ROP 
' SRMS~VALFLD—INI ($RMS~PTR, (RABSL_STS), 0); i STs 
i $RMS~VALFLD~INI (S$RMS_PTR, (RABSL-STV), 0): i STV 
i F $RAS_VALFLD-INI (S$RMS_PTR, (RABSW_R 0); i RFA 
i REP 1 OF SRMS~VALFLD~INI ($RMS_PTR, (RABSL ~BpaRED, 0): i SPARE 


eee 
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SRMS_VALFLD INI (RMS _FTR, (RABSL_C CTX); ' CTX 
REP T OF S$RAS VALFLD~INI(SRMS beg! {RABSL SPARE), ); i SPARE 

SRMS CODFLD. INI CERMSTPTR, CRABSB.RACD, RABSC_, RAC); i RAC 
SRMS~VALFLD_INI ($RMS_PTR, (RABSB_TMO), TMO) : i TMO 
$RMS-VALFLD_INI ($RMS_PTR, (RABSW_USZ) . US2): i ys7z 
SRMS-VALFLD_INI (S$RMS_PTR, (RABSW_RSZ), RS2): i RSZ 
$RMS-VALFLD—INI ($RMS_PTR, (RABSL UBF). UBF) : i UBF 

$RMS~VALFLD—INI ($RMS_PTR, (RABSL_RBF). RBF): i RBF 

| $RMS~VALFLD-INI ($RMS PTR. (RABSL—RHB), RHB) : i RHB 

ZIF NOT LIDENTICAL (KF OS 

OR NOT XIDEN ENTICAL CPBE °0) X%THEN 
SRMS_VALFLD_INI (S$RMS SPAR, (RABSL _ KBF), (KBF)+(PBF)); ! KBF and PBF 
%IF NOT XIDENTICAL(KSZ,0) 
OR NOT ZIDENTICAL(PSZ,0) XTHEN 
SRMS_VALFLD scam a fem (KSZ)+(PSZ)); | KSZ and PSZ 
SRMS_VALFLD_INI($RMS_PTR, (RABSB_KRF), KRF); ' KRF 
$RMS-VALFLD_INI ($RMS_PTR. (RABSB_MBF), MBF): i MBF 
$RMS~VALFLD_INI ($RMS_PTR, (RABSB_MBC) . MBC): i MBC 
$RMS~VALFLD “INI (SRMS“PTR, (RABSLBKT) BKT): i BKT 
$RMS—VALFLD—INI ($RMS_PTR, (RABSL — FAB): i FAB 

sia $RMS~VALFLD~INI ($RMS_PTR, (RABSL~XAB), XAB) : i XAB 


—— 


i 
i 
i 
i 
| 
| 
i 
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RMS~11 Compatibility Macros 


SRMS_INIT 

HS INITIF 

$RMS_ POOL 

$RMS_ORG 

ALL these macros, necessary only in RMS-11, are 
coded as no-ops here, being executable 
expressions with value 


SRMS_INIT(XX) = 
BEGIN 


0 

END X%, 
SRMS_INITIF (XX) = 

BEGIN 


0 

END %, 
SRMS_POOL (XX) = 

BEGIN 


0 

END %, 
SRMS_ORG(XX) = 

BEGIN 


i) 
END %, 


$RMS_OKSTATUS 
RMS_OK 
i $RMS~ suc 


Macros to examine status (STS) values. 


SRMS oxtote val) examines the value sts_val and 
yields 1 if~this is a good status value, 0 otherwise. 


SRMS SUC Cogs val) examines the value sts_val and 
yields 1 if this equals RMS$_SUC. 


SRMS_OKSTATUS(addr) extracts the STS field from 
the RAB or FAB at addr and yields 
1 if this is a good status value, 0 otherwise. 
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SRMS -ORSTATUS (x XX) = 
CKC(XX) ,FABSL_STS;0,BYTEJ AND 1) X, 


SPMS_OK(VAL)= 
((VAL) AND 1) %, 


SRMS_SUC(VAL>= 
(EXTERNAL LITERAL RMS$_SUC;(VAL) EQL RMS$_SUC) %; 


‘ 
; FUNCTIONAL CALLS TO RMS=32 
Vi EXAMPLES OF USE: 
E status = $RMS_OPEN(FAB=FAB_01); 
ie Status = $RMS~GET(SUC=SUC_01,RAB=RAB_03); 
1 
' 


KE YWORDMACRO 
SRMS_CLOSE(FAB,ERR,SUC)= 
SRMS CALL (SYS$CLOSE, FAB,ERR,SUC) %, 


SRMS_CONNECT(RAB,ERR,SUC)= 
SRMS_ CALL (SYS$SCONNECT,RAB,ERR,SUC) %, 


SRMS_CREATE (FAB,ERR,SUC)= 
SRMS_CALL(SY SSCREATE,FAB,ERR,SUC) %, 


SRMS_DELETE(RAB,ERR,SUC)= 
SRMS_CALL(SY SSDELETE. RAB,ERR,SUC) %, 


| 
| 
$RMS_DISCONNECT (RAB, ERR, SUC) = 
SRMS_CAL 
| 
| 


L(SYSSDISCONNECT,RAB,ERR,SUC) %, 


SRMS_DISPLAY(FAB,ERR,SUC)= 
SRMS_CALL (SYS SDISPLAY,FAB,ERR,SUC) %, 


SRMS_ERASE (FAB, ERR, SUC) 
SRMS CALL (SYSSERASE FAB,ERR,SUC) %, 


SRMS_EXTEND (FAB, ERR, SUL) = 
SRMS_ CALL CSYSSEXTEND, FAB,ERR,SUC) %, 


SRMS_FIND(RAB,ERR,S 
SRMS_ CAL teysér inp, RAB,ERR,SUC) %, 


SRMS_FLUSH(RAB,ERR, SUC) = 
SRMS_CALL(SYSSFLUSH,RAB,ERR,SUC) %, 


SRMS_FREE (RAB. ERR, SUC) 
SRMS CALL (SYS$FREE, RAB,ERR,SUC) %, 


$RMS_GET(RAB,ERR, SUC) = 


1 
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!ee The 


‘ee 


SRMS_CALL(SYSSGET,RAB,ERR,SUC) %, 


SRMS_MODIFY(FAB,ERR,SUC)= 
SRMS_CALL(SYSSMODIFY,FAB,ERR,SUC) %, 


SRMS_NXTVOL(RAB,ERR,SUC)= 
SRMS _CALL(SYSSNXTVOL, RAB,ERR,SUC) %, 


SRMS_OPEN(FAB,ERR,SUC)= 
SRMS NCALL (SYS$OPEN, FAB,ERR,SUC) %, 


SRMS_PUT(RAB,ERR,S 
SRMS CALL UsY §$PUT, RAB,ERR,SUC) %, 


SRMS_PARSE (FAB, ERR, SUC) = 
SRMS_CALL (SYSSPARSE.FAB,ERR,SUC) %, 


SRMS_READ(RAB,ERR,S 
SRMS CALL CAYSSREAD, RAB,ERR,SUC) %, 


$SRMS_RELEASE (RAB, ERR, SUC)= 
SRMS _CALL (SYS$RELEASE, RAB,ERR,SUC) %, 


SRMS_REWIND(RAB,ERR 
SRMS_CALL(SY5$R goin, RAB,ERR,SUC) %, 


SRMS_SEARCH(FAB,ERR 
SRMS_CALL(SYS$S eaten, FAB,ERR,SUC) %, 


SRMS_ENTER(FAB,ERR,S 
SRMS OC ALL CSYSSENTER, FAB,ERR,SUC) %, 


$SRMS_REMOVE (FAB, ERR, SUC) = 
SRMS _CALL (SYSSREMOVE , FAB,ERR,SUC) %, 


SRMS_RENAME (OLDFAB, ERR, SUC ,NEWF AB) = 
SRMS _CALL (SYSSRENAME , OLDFAB,ERR,SUC,NEWFAB) %, 


$RMS_SPACE (RAB, ERR, SUC) = 
SRMS_ CALL SY SSSPACE, RAB,ERR,SUC) %, 


SRMS_ TRUNCATE (RAB, ERR, SUC) = 
SRMS_ CALL (SY SSTRUNCATE, RAB,ERR,SUC) %, 


SRMS_UPDATE (RAB, ERR, SUC)= 
SRMS ACALL (SY SSUPDATE ,RAB, ERR, SUC) : 


SPMS_WAIT(RAB,ERR,SUC)= 
SRMS_ Ca ters$uaiT, RAB,ERR,SUC) %, 


SRMS_WRITE(RAB,ERR, SUC) = 
SRMS_CALL(SYSSWRITE,RAB,ERR,SUC) %; 


rest of these calls are now defined in <VMSLIB.SRC>STARLET.SDL 
SCLOSE (FAB,ERR,SUC)= 


rc 


‘en 


eS ee 


‘ee 
‘ee 
‘ee 
‘ee 
‘ow 
‘ee 
‘ee 
‘ee 
‘en 
‘ee 
‘ee 
‘ee 
‘ee 
‘ee 
‘ee 
‘ee 
‘ee 
‘ee 
‘ee 
ee 
‘ae 
tee 
‘ee 
‘ee 
‘ee 
‘ee 
‘ee 
‘ee 
‘ee 
‘ee 
‘ee 
‘eae 
‘ee 
‘ee 
‘ee 
‘ee 
lee 
‘ee 
‘ee 
‘ee 
lee 
'ee 
See 
‘ee 
‘ee 
‘ee 
‘ee 
‘ee 
‘ee 
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SRMS_CALL (SYSSCLOSE,FAB,ERR,SUC) %, 


SCONNECT(RAB,ERR,S 
SRMS STALL SY SSCONNECT, RAB,ERR,SUC) %, 


SRMS_ ACE COYSSEREATE, FAB,ERR,SUC) %, 
SDELETE(RAB. ERR,SUC)= 

$RMS_cALL(SYSSDELETE,RAB,ERR,SUC) %, 
SDISCORMECT RAB, ERR, SUC) 

$RMS, CALL (SYSSDISCONNECT, RAB,ERR,SUC) %, 
SOISPLAYEEA AB, ERR, SUC) = 

SRMS_CALL(SYSSDISPLAY,FAB,ERR,SUC) %, 
SERASE (FAB, ERR, SUC) = 

SRMS_CALL (SYSSERASE,FAB,ERR,SUC) %, 
SEXTEND (FAB, ERR, SUC) = 

SRMS_CALL(SYSSEXTEND,FAB,ERR,SUC) %, 
$F IND(RAB,ERR,SUC)= 


SRMS CALL (SYSSFIND, RAB,ERR,SUC) %, 


$FLUSH(RAB,ERR, SUC) = 
SRMS_CALL(SYSSFLUSH,RAB,ERR,SUC) %, 


SFREE(RAB,ERR,S 
SRMS_ CALL (SYSSFREE, RAB,ERR,SUC) %, 


$GET(RAB,ERR,SUC)= 
SRMS “CALL USYSSGET, RAB,ERR,SUC?> %, 


SMODIF Y(FAB,ERR,SUC)= 
$SRMS _CALL(SYSSMODIFY, FAB,ERR,SUC) %, 


SNXTVOL (RAB,ERR,SUC)= 
SRMS _CALL(SYSS$NXTVOL, RAB,ERR,SUC) %, 


SOPEN(FAB,ERR,SUC)= 
SRMS _CALL (SYSSOPEN, FAB,ERR,SUC) %, 


SPUT(RAB,ERR, SUC 
SRMS_ CALL ¢SYSSPUT, RAB,ERR,SUC) %, 


SPARSE (FAB, ERR, SUC) = 
SRMS_ CALL CEYSEPARSE, FAB,ERR,SUC) %, 


SREAD(RAB,ERR,S 
SRMS BeALL (SYSSREAD, RAB,ERR,SUC) 2%, 


SRELEASE (RAB, ERR, SUC)= 
SAMS. CALL (SV SSRELEASE ,RAB, ERR, SUC) t, 
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lee SREWIND(RAB,ERR,SUC)= 
tee SRMS_CALL(SYSSREWIND,RAB,ERR,SUC) % 
lee SSEARCH(FAB,ERR,SUC)= 
tee SRMS_CALL(SYSSSEARCH,FAB,ERR,SUC) % 
_iee 
ive SENTER(FAB,ERR,SUC)= 
ies SRMS_CALL(SYSSENTER,FAB,ERR,SUC) 2, 
_*f 
ive SREMOVE (FAB, ERR, SUC) = 
‘ee SRMS_CALL(SYSSREMOVE,FAB,ERR,SUC) % 
‘ee 
ive SRENAME (OLDFAS, ERR, SUC ,NEWF AB) = 
ive SRMS_CALL (SYSSRENAME ,OLDFAB,ERR,SUC,NEWFAB) %, 


‘ee 
‘ee 
lee 
‘ee 
‘ee 
‘ee 
‘ee 
‘ee 
‘ee 
ite 
‘ee 
‘ee 
‘ee 
‘ee 
‘ee 
‘ee 


SSPACE (RAB, ERR, SUC) = 
SRMS_CALL(SYS$SPACE,RAB,ERR,SUC) X, 


STRUNCATE (RAB, ERR, SUC) 
$RMS  CALLUSYSSTRUNCATE, RAB,ERR,SUC) %, 


SUPDATE (RAB,ERR,SUC)= 
SRMS "CALL (SYSSUPDATE, RAB,ERR,SUC) %, 


SWAIT(RAB,ERR,SUC)= 
SRMS CALL (SYSS$WAIT, RAB,ERR,SUC) %, 


SWRITE (RAB, ERR, SUC) 
SRMS_ CALL (SYSSWRITE, RAB,ERR,SUC) %; 


‘ee End of macros defined in STARLET.SDL 


Vee Ree eRe EREHEEAAEAEARKKARRARKRREKKEEE 


lee 

' 

SRMS_CALL 

i Internal macro. Processes the pyc Tenet calls 
i oy counting the parameters, putt ing them in 

E e right order, and calling RMS-32 as required. 
le 

MACR 


SITR RMS _CALLCARG] = 
TIF INU 


LL (ARG) 


0 
ZELSE 

ARG 
aFI 2, 


SRMS_CALL(ROUT,BLK) = 


ee ROUTINE ROUT: BLISS ADDRESSING_MODE (GENERAL); 


+ 


—eeee—e—e—e————————————— nn 


: | 
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RIF NOT XNULL( ZREMAINING) 


N 
SITR_RMS_CALL(BLK, %REMAINING) 
TELSE 


FIELD DEFINITIONS, NAMED BIT MASKS, AND NAMED VALUES 


! 
1 | 
: | 
! | 
‘ Produced automatically by the SDL processor 
: acting on the input file RMSUSR.SD 
= | 

j 

| 


| 
ae 
END %; 


nn a 
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